#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
print '<?xml version="1.0"?>';
$dbName="KC_A222";

use DBI;

  #open connection to Access Database
$dsn = 'dbi:mysql:'.$dbName;
$dbh = DBI->connect($dsn, 'knowcat', 'my4kc');

$sql = "select * from Author;";

$sth =  $dbh->prepare($sql);
$sth->execute || die "No se puede ejecutar la orden SQL";

print "<ul>";
while ($row = $sth->fetchrow_hashref){
	print "<li>".$row->{nameAuthor}."</li>";
}
print "</ul>";

$dbh->disconnect;

